home *** CD-ROM | disk | FTP | other *** search
/ Gigantic Games 2 / Gigantic Games 2.iso / pc / new / new_3 / solitaire / installfont next >
Text File  |  1994-12-23  |  526b  |  34 lines
  1. .k ""
  2. FailAt 20
  3.  
  4. set bcol0 "*E[40m"
  5. set bcol2 "*E[42m"
  6. set bold  "*E[1m"
  7. set nbold "*E[22m"
  8.  
  9. set font1 "Card"
  10.  
  11. set font1t "$bold$font1.font$nbold"
  12.  
  13. Echo "*n     $bcol2 Fonts Installation Script $bcol0*n"
  14.  
  15. if not exists FONTS:$font1.font
  16.   echo "$Font1t ..." NOLINE
  17.   copy  fonts/$Font1#? FONTS: ALL QUIET
  18.   echo "Done*n"
  19. else
  20.   echo "$Font1t already exists in FONTS:*n"
  21. endif
  22.  
  23. Echo "Installation complete.*n"
  24.  
  25. unset font1
  26.  
  27. unset bcol0
  28. unset bcol2
  29.  
  30. Echo "*E[3mClick the close gadget to continue! *E[23m*n"
  31.  
  32. Wait 2
  33. EndCLI >NIL:
  34.